home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 002 / bluebery.arc / PRNTCALL.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-06-29  |  3.0 KB  |  71 lines
  1. 5  CLS:KEY OFF:SCREEN 0,0,0:WIDTH 80:CLEAR:FOR I=1 TO 10:KEY I,"":NEXT:KEY 2,"GOTO 60"+CHR$(13):KEY 10,"RUN"+CHR$(34)+"BLUEMENU"+CHR$(34)+CHR$(13):LIST 10-57
  2. 10  '*****************  PRINTER CONTROL SUB-ROUTINE IBM  ***********************
  3. 16  'KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE
  4. 18  'OPEN                EPSON/GEMINI 10/15 PRINT CONTROL ROUTINE                 OPEN
  5. 20  'OPEN                                                                         OPEN
  6. 22  'OPEN    Delete lines 110-200 and save the remaining program with the ASCII   OPEN
  7. 24  'OPEN option 'A ' so it can be merged into your program. GOSUB 5000 to set    OPEN
  8. 26  'OPEN up printer control in your program. If you are proficient in the use    OPEN
  9. 28  'OPEN of printer codes, you may wish to make the title shorter. If you only   OPEN
  10. 30  'OPEN use codes occasionally, you may appreciate the more descriptive name.   OPEN
  11. 31  'OPEN                                                                         OPEN
  12. 32  'OPEN    The error routine will take care of printer off or 'off line'. It    OPEN
  13. 33  'OPEN will go to Basic error handling for paper out or other.  This program   OPEN
  14. 34  'OPEN or any part thereof may be used without license or attribution.         OPEN
  15. 36  'OPEN                   (c) G I N A C O    1983              Ver 5.1/160/320  OPEN
  16. 38  'SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD
  17. 55  '        *****  < F2 > to RUN  *******  < F10 > For BLUEMENU  *****
  18. 57  ' ====== To avoid DOCUMENTATION BOX each time, REM or DELETE  line 5 ======
  19. 60  REM
  20. 100  GOSUB 5030
  21. 110   CLS
  22. 120    LOCATE 10,23
  23. 130     PRINT "YOUR PRINTER HAS BEEN INITIALIZED"
  24. 140      LOCATE 12,20
  25. 150       PRINT "FOR A SAMPLE PRINTOUT RUN EPSONSET.BAS"
  26. 160        FOR I! = 1 TO 3000
  27. 170         NEXT
  28. 180          PRINT
  29. 190           LIST 5000 - 5480
  30. 200            END
  31. 5000  '********************** PRINTER CONTROL SUBROUTINE ************************
  32. 5030  SMALL$ = CHR$(15)
  33. 5060   UNSMALL$ = CHR$(18)
  34. 5090    EXPAND.SMALL$ = CHR$(14) + CHR$(15)
  35. 5120     CANX.EXP.COMP$ = CHR$(18) + CHR$(20)
  36. 5150      EXPAND$ = CHR$(14)
  37. 5180       EXPAND.END$ = CHR$(20)
  38. 5210        DARK$ = CHR$(27) + CHR$(69)
  39. 5240         ITALIC$ = CHR$(27) + CHR$(52)
  40. 5270          ITALIC.EXP.CON$ = CHR$(14) + CHR$(15) + CHR$(27) + CHR$(52)
  41. 5300  ITALIC.EXP$ = CHR$(27) + CHR$(52) + CHR$(14)
  42. 5330   END.ITALIC$ = CHR$(27) + CHR$(53)
  43. 5360    START.ULINE$ = CHR$(27) + CHR$(45) + CHR$(1)
  44. 5390     END.ULINE$ = CHR$(27) + CHR$(45) + CHR$(0)
  45. 5420      PERM.EXPAN$ = CHR$(27) + CHR$(87) + CHR$(1)
  46. 5450       END.PERMEXP$ = CHR$(27) + CHR$(87) + CHR$(0)
  47. 5480  START.DSTRIKE$ = CHR$(27) + CHR$(71)
  48. 5510   END.DSTRIKE$ = CHR$(27) + CHR$(72)
  49. 5540    TINYLINE$ = CHR$(27) + CHR$(83) + CHR$(0)
  50. 5570     END.TINY$ = CHR$(27) + CHR$(84)
  51. 5600      ESC$ = CHR$(27)
  52. 5630       CLEANUP$ = CHR$(27) + CHR$(64)
  53. 5660        RETURN
  54. 6000  REM ********* PRINTER ERROR ROUTINE ***************
  55. 6030  IF ERR = 24 THEN 6120 ELSE 6060
  56. 6060  IF ERR = 25 THEN 6120 ELSE 6090
  57. 6090  ON ERROR GOTO 0
  58. 6120  KEY OFF
  59. 6150   BEEP
  60. 6180    BEEP
  61. 6210     LOCATE 25,1
  62. 6240      PRINT SPC( 79)
  63. 6270       LOCATE 25,20
  64. 6300        PRINT "CHECK PRINTER - PRESS ANY KEY TO CONTINUE"
  65. 6330  IF INKEY$ = "" THEN 6330
  66. 6360  KEY OFF
  67. 6390   RESUME
  68. 6420    END
  69. 65000  '************************ SAVE ROUTINE *********************************
  70. 65100  SAVE "B:PRNTCALL.BAS"
  71.